0 POKE53280,0:GOSUB53000 1 PRINT"[147]":POKE53280,0:POKE53281,0 2 REM****************************** 3 REM*'DAS GIFT' EIN ATVENTURE VON* 4 REM* FRANK KRAFT * 5 REM* JUREKSTR.32 * 6 REM* 3031 REKAWINKEL * 7 REM* AUSTRIA * 8 REM* TEL:02233/29963 * 9 REM****************************** 10 DATA76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169 12 DATA160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11 14 DATA1,169,53,133,1,88,96:FORI=264TO310:READX:POKEI,X:NEXT:SYS264 16 FORI=710TO730:READX:POKEI,X:NEXT 18 DATA208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168 20 POKE40996,197:POKE40997,2:POKE1,54 22 FORI=43168TO43170:READX:POKEI,X:NEXT 24 FORI=704TO709:READX:POKEI,X:NEXT 26 DATA32,192,2,32,138,173,76,247,183 30 GOSUB52000 100 ZN=13 :AF=0: GOTO1130 1000 REM 1010 GOSUB50000 1105 IFVE<1ORVE>10THEN1200 1110 IFRI(VE)=0THENPRINT"KEIN WEG IN DIESE RICHTUNG !":GOTO1200 1120 ZN=RI(VE):PRINT"[147]" 1130 GOSUB 10000+ZN*100 1140 RESTORE 10000+ZN*100 1145 IF AF=1 THENPRINT"[152]DER AFFE FOLGT DIR." 1150 FORI=1TO10:READRI(I):NEXT 1155 :GOSUB10000+ZN*100+20 1160 PRINT"[151]MOEGLICHE RICHTUNGEN :[155] "; 1165 IC=0:FORI=1TO10:IFRI(I)<>0THENPRINTVE$(I);",";:IC=1 1170 NEXTI 1175 IFIC=0THENPRINT"KEINE." 1180 IFIC=1THENPRINTCHR$(20) 1185 PRINT"[151]ICH SEHE :[155] "; 1186 IC=0:FORI=1TOOZ:IFOO(I)=ZNTHENPRINTOB$(I);",";:IC=1 1187 NEXT 1188 FORI=1TOGZ:IFGE(I)=ZNTHENPRINTGE$(I);",";:IC=1 1189 IF GE(I)=-2ANDTU(1)=1 AND ZN=13 THENPRINTGE$(I);",";:CI=1 1190 NEXT 1192 IFIC=0THENPRINT"NICHTS BESONDERES." 1194 IFIC=1THENPRINTCHR$(20) 1200 REM 2000 REM REAKTION AUF BEFEHLE (ALLGEMEINE ACTION) 2100 REM 2110 IFVE<>15THEN2200 2112 IFOB<>0 THEN GOTO2140 2119 IF GE(G1)=-2 AND ZN=13 AND TU(1)=1THEN 2125 2120 IFGE(G1)<>ZNTHENPRINT"ICH SEHE DIESEN GEGENSTAND HIER NICHT !" 2125 IFGE(G1)=-1THENPRINT"DU HAST DIESEN GEGENSTAND BEREITS !" 2130 IFGE(G1)=ZNTHENGE(G1)=-1:PRINT"OK.":GOTO2200 2140 REM 2145 IF OB =1ANDZN=1THENPRINT"IN DER REGEL SIND REGALE NICHT LEICHT." 2146 IF OB =2ANDZN=1THENPRINT"LEIDER IST DIE LEITER ANGESCHRAUBT." 2147 IFOB=3ANDZN=2THENPRINT"DAS IST JA MENSCHENRAUB!DA MACH ICH NICHT MIT." 2148 IF OB =4 AND ZN=3THENPRINT"ER WILL NICHT ...":CC=0 2149 IF OB =5 AND ZN=4THENPRINT"UFF,KEUCH,AECHTS, DAS SCHAFF ICH NICHT":CC=0 2150 IF OB =7 THENPRINT"WILLST DU MOEBEL STEHLEN ODER WAS ???":CC=0 2151 IF OB =8 AND ZN=7 THENPRINT"DIE WACHE VERBIETET DIR DAS."CC=0 2152 IF OB =9 ANDZN=8 THENPRINT"SIE SIND IM BODEN VERWACHSEN.":CC=0 2153 IF OB =10 AND ZN=9THENPRINT"ER HAELT SICH AN EINEM AST FEST":CC=0 2154 IF OB =11 ANDZN=10THENPRINT"IST DAS EIN SCHERZ ???":CC=0 2155 IF OB =12 ANDZN=11 THENPRINT"ICH KANN IHN NICHT FANGEN...":CC=0 2156 IF OB =13 AND ZN=12THENPRINT"ER BEISST DIR IN DIE HAND.":CC=0 2157 IF OB =14 AND ZN=14THENPRINT"SOLL ICH IHN NICHT GLEICH AUSTRINKEN ?":CC=0 2158 IF OB =15 AND ZN=12THENPRINT"ICH BIN VON GREENPEACE UND VERBIETE DAS."CC=0 2159 IF OB =16 ANDZN=13THENPRINT"ER IST ZU SCHWER UM GETRAGEN ZU WERDEN.":CC=0 2160 IF OB =17ANDZN=6THENPRINT"WO WILLST DU SIE DEN HINBRINGEN ???":CC=0 2161 IF OB =18ANDZN=14 THENPRINT"ER SCHLEIMT MIR DURCH DIE FINGER.":CC=0 2197 IFOB=10 AND AF=1 THENPRINT"DER KOMMT JA SOWIESO MIT...":CC=0 2200 REM 2205 IFVE<>22THEN2300 2210 PRINT"ICH HABE: "; 2220 IC=0:FORI=1TOGZ:IFGE(I)=-1THENPRINTGE$(I)",";:IC=1 2225 NEXT 2230 IFIC=0THENPRINT"NICHTS." 2235 IFIC=1THENPRINT"[157] " 2300 REM 2301 IF OB=16 AND ZN=13 THEN GOTO2400 2305 IFVE<>18THEN2400 2310 IFGE(G1)<>-1THENPRINT"ICH HABE DAS NICHT !" 2320 IFGE(G1)=-1THENGE(G1)=ZN:PRINT"OK." 2400 REM 2405 IFVE<>13THEN2500 2410 IFOB=0ANDG1=0THENPRINT"[147]":VE=0:GOTO1130 2411 IFOB=10ANDAF=1 THENPRINT"ER IST EIN AFFE WIE DU UND ICH." 2412 IFOB=18ANDOO(18)=ZNTHENGE(20)=-1 2415 IFOB=1ANDOO(1)=ZNTHENPRINT"EIN NORMALES BUECHERREGAL." 2416 IFOB=2ANDOO(2)=ZNTHENPRINT"SIE FUEHRT NACH OBEN." 2417 IFOB=3ANDOO(3)=ZNTHENPRINT"EIN ALTER NEGER EBEN..." 2418 IFOB=4ANDOO(4)=ZNTHENPRINT"ER HAT ZWEI AUGEN." 2425 IFOB=5ANDOO(5)=ZNTHENPRINT"MIT IHM KANN MAN FUNKEN." 2426 IFOB=7ANDOO(7)=ZNTHENPRINT"ER IST AUS HOLZ" 2428 IFOB=8ANDOO(8)=ZNTHENPRINT"ER PASST AUF." 2429 IFOB=9ANDOO(9)=ZNTHENPRINT"DIE BUESCHE WIEGEN SICH IM WIND." 2430 IFOB=10ANDOO(10)=ZNTHENPRINT"ER IST EIN AFFE WIE DU UND ICH." 2431 IFOB=11ANDOO(11)=ZNTHENPRINT"ES GEHOERT DIR. 2432 [139]OB[178]12[175]OO(12)[178]ZN[167][153]"ER LAESST SICH NICHT UNTERSUCHEN." 2433 [139]OB[178]13[175]OO(13)[178]ZN[167][153]"ER LAESST SICH NICHT UNTERSUCHEN." 2434 [139]OB[178]14[175]OO(14)[178]ZN[167][153]"ER IST SEHR SCHLAMMIG." 2435 [139]OB[178]15[175]OO(15)[178]ZN[167][153]"ES IST EIN MALORA BAUM." 2436 [139]OB[178]16[175]OO(16)[178]ZN[167][153]"ES IST DEIN ERSTE HILFE KOFFER." 2437 [139]OB[178]17[175]OO(17)[178]ZN[167][153]"SIE WILL SICH NICHT UNTERSUCHEN LASSEN." 2438 [139]OB[178]18[175]OO(18)[178]ZN[167][153]"DU FINDES EINEN BLUTEGEL UND NIMMST IHN" 2450 [139] G1[178]0[167][137]2500 2451 [139]GE(G1)[179][177][171]1[167][153]"DAS HAST DU NICHT...":[137]2500 2452 [139]G1[179][177]1[167][137]2462 2453 [153]"LOADCONTIN DEM BUCH STEHT UNTER ANDEREM :" 2454 [153]"PRINT#SERUM GEGEN PFEILGIFT: MAN NEHME EINE 2455 PRINT"MALORA KNOSPE UND ZERMALE SIE MIT EINEM 2456 [153]"FROSCH. EINEN BLUTEGEL UNTER DIE MASSE 2457 PRINT"KNETEN UND ZUM SCHLUSS MIT ETWAS HARZ" 2458 PRINT"SCHAUMIG RUEHREN. " 2462 IFG1=2THENPRINT"IN IHR IST EIN TOTER FROSCH." 2463 IFG1=3THENPRINT"ER IST TOT (SNIF) 2464 [139]G1[178]4[167][153]"ER IST HART WIE STEIN." 2465 [139]G1[178]5[167][153]"SIE SIND GELB UND GEBOGEN." 2466 [139]G1[178]6[167][153]"EIN ECHTES GOESSER. 2467 IFG1=7THENPRINT"ES IST KEINE TUERANGEL SONDERN EINE ZUM FISCHEN..." 2468 IFG1=8THENPRINT"ZU KLEIN ZUM ESSEN. 2469 [139]G1[178]9[167][153]"EINE MALORA KNOSPE 2470 IFG1=10THENPRINT"BLUMEN SIND BLUMEN." 2471 IFG1=11THENPRINT"EINE KLEINE WEISSE PILLE." 2472 IFG1=12THENPRINT"ZUM VERBINDEN VON WUNDEN." 2473 IFG1=13THENPRINT"ZUM SCHNEIDEN (LEIDER KANN ICH NICHT SCHNEIDEN)" 2474 IFG1=14THENPRINT"ZUM UEBERKLEBEN VON LOECHERN 2475 [139]G1[178]15[167][153]"KLEINE WEISSE KOERNER. 2476 IFG1=16THENPRINT"ES HAT IN DIESEM ADVENTURE KEINERLEI BEDEUTUNG." 2477 IFG1=17THENPRINT"EINE STANGE MIT SPITZE." 2478 IFG1=18THENPRINT"ES IST KEINE KNOSPE 2479 [139]G1[178]19[167][153]"ES IST CA. 30CM LANG." 2480 [139]G1[178]20[167][153]"EIN DICHER, SCHMIERIGER WURM." 2481 [139]G1[178]21[167][153]"IST ZWAR KLEBRIG, RICHT ABER GUT." 2482 [139]G1[178]22[167][153]"DAS WAR MAL EINE FLASCHE" 2483 [139]G1[178]23[167][153]"DAS IST DAS, WAS DU BRAUCHST." 2500 [143] 2505 [139] VE[179][177]23 [167][137]2550 2510 [139] ZN[179][177]13 [167][153]"BENUTZE BITTE DIE HIMMELSRICHTUNGEN.":[137]2550 2520 [139] ZN[178]13 [167] ZN[178]10:[153]"LOAD":VE[178]0:[137]1130 2550 [143] 2555 [139] VE[179][177]24 [167][137]2600 2560 [139] ZN[179][177]10 [167][153]"BENUTZE BITTE DIE HIMMELSRICHTUNGEN.":[137]2600 2570 [139] ZN[178]10 [167] ZN[178]13:[153]"LOAD":VE[178]0:[137]1130 2600 [143] 2601 [139] VE[179][177]11 [167] [137]2625 2602 [139] ZN[178]13 [175] OB[178]16 [167] [137]2625 2605 [139] OB[178]0 [175] G1[178]0 [167][153]"WAS SOLL ICH OEFFNEN ???":[137]2625 2610 [153]"DAS KANN ICH NICHT OEFFNEN !" 2625 [143] 2626 [139] VE[179][177]12 [167] [137]2650 2632 [139] ZN[178]13 [175] OB[178]16 [167] [137]2650 2635 [139] OB[178]0 [175] G1[178]0 [167][153]"WAS SOLL ICH SCHLIESSEN ???":[137]2650 2640 [153]"DAS KANN ICH NICHT SCHLIESSEN !" 2650 [143] 2654 [139] VE[179][177]27 [167] [137]2660 2657 [153]"DU BIST ARZT UND KEIN MOERDER !!!" 2660 [143] 2661 [139] VE[179][177]25 [167] 2670 2662 [139] OB[178]10 [175] AF[178]1 [175] ZN[178]3 [167]2670 2663 [139] OB[178]10 [175] AF[178]1 [167][153]"KEINER WILL DEN AFFEN.":VE[178]0:[137]2667 2664 [139] OB[178]10 [175] AF[178]0 [167][153]"DU HAST IHN JA GAR NICHT.":VE[178]0 2665 [139] GE(G1)[179][177][171]1[167] [153]"DAS HAST DU JA GAR NICHT!!!":VE[178]0 2667 [139]ZN[178]1[176]ZN[178]4[176]ZN[178]5[176]ZN[178]8[176]ZN[178]10[176]ZN[178]11[176]ZN[178]13[176]ZN[178]14[167]CC[178]1 2668 [139]CC[178]1[167][153]"ES IST JA GAR KEINER DA...":CC[178]0:VE[178]0 2670 [143] 2700 [143] 2705 [139] VE[179][177]35 [167] [137]2750 2710 [139] ZN[178]1[176]ZN[178]5[176]ZN[178]8[176]ZN[178]9[176]ZN[178]10[176]ZN[178]11[176]ZN[178]12[176]ZN[178]13[176]ZN[178]14 [167] CC[178]1 2715 [139] CC[178]1[167][153]"DU FUEHRST SELBSTGESPRAECHE, DENN KEINERHOERT ZU":CC[178]0 2720 [139]ZN[178]2[175]SC[178]0[167][153]"ER SAGT:ICH GEBE GEGENGIFT UMSONST NICHTON" 2721 [139]ZN[178]2[175]SC[178]1[167][153]"ER SAGT:DA UNTEN SEIEN MEIN WISSEN GANZ.ON" 2722 [139]ZN[178]3[175]NE[178]0[167][153]"ER SAGT:BIN SO ALLEINEN" 2723 [139]ZN[178]3[175]NE[178]1[167][153]"ER SAGT:AFFE HAT MICH HAUN. HABE BLAUES AUGE" 2724 [139]ZN[178]3[175]NE[178]2[167][153]"ER SAGT:BLUTEGEL SAUGT MEIN BLUT GANZ" 2725 [139]ZN[178]3[175]NE[178]3[167][153]"ER SAGT:DU SO NETT. GIB MIR ZUTATEN ICH MACH MEDIZIN 2726 IFZN=7THENPRINT"ER SAGT:HALLO DOC." 2727 IFZN=6THENPRINT"TAUSCHI TAUSCHI ALLES GIMA ." 2750 REM 2751 IF VE<>40 THEN GOTO2800 2752 IF G1=2AND GE(G1)=-1 THENPRINT"DU ZERBRICHST DIE FLASCHE.":CC=1 2753 IF CC=1 THEN GE(2)=0:GE(3)=ZN:GE(22)=ZN:CC=0:GOTO2800 2755 IF OB=15 AND ZN=12 THENPRINT"DU SCHLAEGST EIN LOCH IN DEN BAUM":CC=1 2756 IF CC=1 THEN GE(21)=12:CC=0:GOTO2800 2760 ZZ=ZZ+1:IFZZ=6THEN ZZ=1 2762 IF ZZ=1THENPRINT"CHAOTE..." 2764 IF ZZ=2THENPRINT"DIESE JUGEND HEUTZUTAGE." 2768 IF ZZ=3THENPRINT"ZERSTOERUNGSWUT ???" 2770 IF ZZ=4THENPRINT"ALLES MIT DER RUHE!" 2772 IF ZZ=5THENPRINT"DAS GEHT ZU WEIT..." 2800 REM 2801 IF VE<>30 THEN GOTO2850 2805 IF G1=0THENPRINT"MIT DER HAND ???":GOTO2850 2807 IF G1<>17 THENPRINT"DAMIT KANN MAN NICHTS VERJAGEN.":GOTO2850 2809 IF ZN<>12 THENPRINT"WAS WILLST DU VERJAGEN ???":GOTO2850 2811 IF TG=2THENPRINT"DER TIGER IST SCHON WEG !!":GOTO2850 2850 REM 2855 IF VE<>48 THEN GOTO2900 2860 IF ZN<>13 THEN PRINT"WAS WILLST DU HIER STARTEN ???":GOTO2900 2865 PRINT"[147][154]DU STARTEST DAS FLUGZEUG...UND ROLLST 2866 [153]"UEBER DIE STARTBAHN. DAS FLUGZEUG HEBT 2867 PRINT"AB... DU FLIEGST. EIN TOLLES GEFUEHL! 2870 [153]"DU FLIEGST RICHTUNG KAIRO." 2875 [139] GE(23)[178][171]1[167][153]"DU HAST DEINEN AUFTRAG ERFUELLT !!!":[137]2890 2876 [139] GE(23)[178][171]2[176] GE(23)[178]13 [167] GE(23)[178][171]1:[137]2875 2877 [153]"ABER WAS HAST DU DIE GANZE ZEIT GEMACHT?" 2890 [153]"NOCH EINMAL?" 2891 [161] A$:[139] A$[178]"N"[167][128] 2892 [139] A$[178]"J" [176] A$[178]"Y"[167] [138] 2894 [137]2891 2900 [143] 2901 [139] VE[179][177]49 [167][137]2950 2902 [153]"LOADCONT EINIGE BEFEHLE, DIE SIE IN DIESEM 2903 PRINT" ADVENTURE VERWENDEN KOENNEN. 2904 [153]" -------------------------------- 2905 PRINT"[151]N,S,W,O,NW,NO,SW,SO,RAUF,RUNTER,OEFFNE 2907 [153]"SCHLIESSE,SCHAUE,UNTERSUCHE,NIMM,LEGE, 2909 PRINT"[152]INVENTUR,VERLASSE, BETRETE, GIB,TOETE, 2911 [153]"VERJAGE,FUNKE, FISCHE, SPRICH,SCHLAGE, 2913 PRINT"[155]STARTE,WOERTER,AUFTRAG,HILFE,ZERBRECHE 2950 [139] VE[179][177]50 [167] [137]3000 2951 [139] FU[178]1[167][137]2963 2952 [153]"LOADCONT AUFTRAGCMDCMDCMDCMDCMDCMDCMDSYS-------" 2953 [153]"POKESIE (ARZT) SIND AUF EINER MISSIONSREISE 2954 PRINT"[152]IM AFRIKANISCHEN DSCHUNGEL. HELFEN SIE 2955 [153]"LISTDEN EINGEBORENEN, DOCH VERGESSEN SIE 2957 PRINT"NICHT MIT DER AUSSENWELT KONTAKT AUF- 2959 [153]"PRINT#ZUNEHMEN.ES KOENNTE SEIN, DASS SIE BALD 2961 PRINT"[151]EINEN ANDEREN AUFTRAG HABEN........... 2963 [139] FU[178]0[167][137]3000 2964 [153]"LOADCONT AUFTRAGCMDCMDCMDCMDCMDCMDCMDSYS-------" 2965 [153]"POKESUCHEN SIE DAS GEGENMITTEL UND BRINGEN 2967 PRINT"SIE ES NACH KAIRO. VIEL GLUECK...... 3000 [143] 3001 [139] VE[179][177]51 [167] [137]3100 3010 [139] ZN[178]1[167][153]"NIMM WAS DU BRAUCHST." 3012 [139] ZN[178]2[167][153]"ES IST EIN WEISER NEGER..." 3013 [139] ZN[178]3[167][153]"EINE HAND WAESCHT DIE ANDERE." 3014 [139] ZN[178]4[167][153]"KONTAKT IST DAS WICHTIGSTE. 3015 IF ZN=5THENPRINT"NICHTS LOS HIER. 3016 [139] ZN[178]6[167][153]"GIB IHR WAS, DANN GIBT SIE DIR WAS. (WENN SIE WILL) 3017 IF ZN=7THENPRINT"HAT ER KOPFWEH ??" 3018 IF ZN=8THENPRINT"UNWICHTIG" 3019 IF ZN=9THENPRINT"DER AFFE, DEIN FREUND UND HELFER." 3020 IF ZN=10THENPRINT"HILF DIR SELBST. 3021 [139] ZN[178]11[167][153]"SCHENK DEINER FRAU DOCH HIN UND WIEDER ROTE ROSEN..." 3022 [139] ZN[178]12[167][153]"TIGER SIND STOEREND 3023 IF ZN=13THENPRINT"ICH UEBERLEGE GERADE..." 3024 IF ZN=14THENPRINT"WAS BEWEGT SICH DA IM SCHLAMM???" 3100 REM 9990 GOSUB10000+ZN*100+20 9995 GOTO1000 10000 REM 10100 REM 1 10102 DATA 0,0,0,0,0,0,0,0,2,0 10103 GOSUB 53030 10105 PRINT"DU BIST IM KELLER DES WEISEN MANNES. 10107 [153]"ALLES IST MIT EINER DICKEN STAUBSCHICHT 10109 PRINT"BEDECKT. ES RICHT NACH MODERNDEM HOLZ. 10120 [142] 10200 [143] 2 10202 [131] 0,5,0,0,0,0,0,0,0,0 10203 [141] 53060 10205 [153]"DU BIST IM RAUM DES WEISEN MANNES. ER 10207 PRINT"SITZT AUF EINEM TEPPICH, RAUCHT EINE 10209 [153]"PFEIFE UND UNTERSUCHT EINEN TOTEN 10211 PRINT"SCHMETTERLING. DA LIEGT NOCH EINE LEERE BIERFLASCHE... 10220 [143] 10225 [139]VE[178]25 [175] G1[178]6 [167] [153]"DER WEISE OEFFNET EINE LUKE IM BODEN, 10226 IFVE=25 AND G1=6 THEN PRINT"DIE EINEN SCHACHT VERDECKT HATTE.":SC=1 10227 IFSC=1THENRI(10)=1:GE(6)=0 10299 RETURN 10300 REM 3 10302 DATA 0,0,0,0,0,0,5,0,0,0 10303 GOSUB 53090 10305 PRINT"DU BIST IN EINER WOHNHUETTE. EIN NEGER 10307 [153]"IST GERADE DABEI "; 10309 A[178]A[170]1:[139]A[178]6[167]A[178]1 10310 [139] A[178]1[167][153]"AUFZUKEHREN." 10312 [139] A[178]2[167][153]"AUFZURAEUMEN." 10313 [139] A[178]3[167][153]"AUFZUWASCHEN." 10314 [139] A[178]4[167][153]"ZU ESSEN." 10315 [139] A[178]5[167][153]"ZU SINGEN." 10316 [139] NE[178]0[167][153]"ER SCHEINT EINSAM ZU SEIN.": 10317 [139] NE[178]1[167][153]"ER HAT EIN BLAUES AUGE.": 10318 [139] NE[178]2[167][153]"AN SEINEM AUGE HAENGT EIN BLUTEGEL" 10319 [139] NE[178]3[167][153]"ER IST GLUECKLICH. 10320 REM 10325 IF VE<>25 THEN GOTO 10380 10330 IF OB=10 THENPRINT"ER SAGT: JETZ BIN I NIMA ALOAN.":AF=2:NE=1 10332 IF G1=20 AND NE=1 THEN PRINT"[152]ER SAGT:WAS SOLL I DAMIT TUN???" 10334 IF G1=20 AND NE=1THEN PRINT"[155]DU SAGST:ER WIRD DIR DAS BLUT AUS DEM 10336 [139] G1[178]20 [175] NE[178]1[167] [153]"BLAUEN AUGE ZIEHEN...":GE(20)[178]0:NE[178]2: 10338 [139] G1[178]15 [175] NE[178]2[167] [153]"PRINT#ER FRAGT:WAS SOLL I DAMIT TUN." 10340 [139] G1[178]15 [175] NE[178]2[167] [153]"LISTDU SAGST:STREUE ES UEBER DEN EGEL UND 10342 IF G1=15 AND NE=2THEN PRINT"ER WIRD ABFALLEN.":NE=3:GE(15)=0 10350 IF NE=3 AND G1=3 THENPRINT"ER NIMMT ES.":ME=ME+1:GE(G1)=0 10355 IF NE=3 AND G1=9 THENPRINT"ER NIMMT ES.":ME=ME+1:GE(G1)=0 10357 IF NE=3 AND G1=20 THENPRINT"ER NIMMT ES.":ME=ME+1:GE(G1)=0 10359 IF NE=3 AND G1=21 THENPRINT"ER NIMMT ES.":ME=ME+1:GE(G1)=0 10361 IFME=4THENPRINT"DER NEGER VERMISCHT ALLES. 10362 [139]ME[178]4[167][153]"ER SAGT: FERTIG. 10363 IFME=4THENGE(23)=3:ME=5:NE=4 10380 REM 10399 RETURN 10400 REM 4 10402 DATA 0,0,0,5,0,0,0,0,0,0 10403 GOSUB 53120 10405 PRINT"DU BIST IM FUNKRAUM DER NEGERSIEDLUNG. 10406 [153]"AUF EINEM KLEINEN TISCH STEHT EIN FUNK- 10407 PRINT"GERAET, DAS LEISE RAUSCHT UND KNISTERT 10420 [143] 10425 [139] VE[179][177]32[167] [137]10460 10426 [153]"LOADCONTDU HOERST: 10427 IF FU<>0THENGOTO10450 10430 PRINT"[151]HALLO, HALLO,... HIER SPRICHT CHEFARZT 10431 [153]"BIRKZAHN AUS KAIRO. BEI UNS IST EIN 10432 PRINT"[152]RUSSISCHER BOTSCHAFTER MIT EINEM GIFT- 10433 [153]"PFEIL ANGESCHOSSEN WORDEN. WIR KONNTEN 10434 PRINT"[155]DIE VERBREITUNG DES GIFTES IN SEINEM 10435 [153]"KOERPER VERLANGSAMEN, ABER ZUM STOPPEN 10436 PRINT"[151]DES VERGIFTUNGSVORGANGES BRAUCHEN WIR 10437 [153]"PRINT#EIN GEGENMITTEL, DESSEN HERSTELLUNG UNS" 10438 [153]"UNBEKANNT IST. DOCH IN DEM NEGERDORF," 10439 [153]"POKEIN DEM SIE SICH BEFINDEN, IST EIN MANN, 10440 PRINT"[155]DER SICH MIT PFEILGIFTEN GUT AUSKENNT. 10441 [153]"FINDEN SIE IHN, SUCHEN SIE DIE ZUTATEN 10442 PRINT"[152]DES GEGENGIFTES UND BRINGEN SIE ES SO 10443 [153]"SCHNELL NACH KAIRO WIE SIE NUR KOENNEN. 10444 PRINT"[151]WENN DER BOTSCHAFTER STIRBT,KOENNTE DAS 10445 [153]"EINEN KRIEG AUSLOESEN. VIEL GLUECK ....":FU[178]1:[137]10460 10450 [143] 10455 [153]"POKEBEEILE DICH DOCH... DU HAST WENIG ZEIT" 10460 [143] 10490 [143] 10499 [142] 10500 [143] 5 10502 [131] 2,7,4,6,0,3,0,0,0,0 10503 [141] 53150 10505 [153]"DU BIST AM HAUPTPLATZ EINER KLEINEN 10506 PRINT"NEGERSIEDLUNG.IM NORDEN IST EINE GROSSE 10507 [153]"HUETTE, IM OSTEN EIN KLEINES GESCHAEFT, 10508 PRINT"IM SUEDEN IST DER AUSGANG,IM OSTEN IST 10509 [153]"DER FUNKRAUM, DEN EIN WEISSER MISSIONAR 10510 PRINT"EINGERICHTET HAT, UM WICHTIGE MELDUNGEN 10511 [153]"DURCHZUGEBEN. IM NO IST DER SCHLAFRAUM 10512 PRINT"DER NEGER. 10520 [142] 10600 [143] 6 10602 [131] 0,0,5,0,0,0,0,0,0,0 10603 [141] 53180 10605 [153]"DU BIST IN EINEM KLEINEN LADEN, IN DEM 10606 PRINT"MAN KEINE[160] SEHR GROSSE AUSWAHL HAT. 10607 [153]"EINE ALTE NEGERIN, SIE FUEHRT DAS 10608 PRINT"GESCHAEFT, SAGT: TAUSCHI NUR TAUSCHI..." 10620 REM 10625 IF VE <>25 THEN GOTO10690 10630 IF G1=18 AND GE(G1)=-1THEN PRINT"SIE SAGT:ICH TAUSCHE GEGEN FISCH" 10631 IF G1=18 AND GE(G1)=-1THEN GE(18)=0:GE(8)=-1:GOTO10650 10632 IF G1=10 AND GE(G1)=-1THEN PRINT"SIE SAGT:ICH TAUSCHE GEGEN BIER" 10633 IF G1=10 AND GE(G1)=-1THEN GE(G1)=0:GE(6)=-1:GOTO10650 10634 IF G1=13 AND GE(G1)=-1THEN PRINT"SIE SAGT:ICH TAUSCHE GEGEN ANGEL" 10635 IF G1=13 AND GE(G1)=-1THEN GE(G1)=0:GE(7)=-1:GOTO10650 10636 IF G1=19 AND GE(G1)=-1THEN PRINT"SIE SAGT:ICH TAUSCHE GEGEN BANANEN" 10637 IF G1=19 AND GE(G1)=-1THEN GE(G1)=0:GE(5)=-1:GOTO10650 10638 PRINT"SIE SAGT:MOG I NET..." 10650 REM 10690 REM 10699 RETURN 10700 REM RAUM 7 --------- 10702 DATA 5,10,0,8,0,0,0,11,0,0 10703 GOSUB53210 10705 PRINT"DU BIST BEIM EINGANG DER NEGERSIEDLUNG. 10706 [153]"DIE NEGERWACHE MACHT EINEN MUEDEN 10707 PRINT"EINDRUCK. ER SCHEINT KOPFWEH ZU HABEN 10720 [143] 10725 [139] VE[179][177]25 [167] [137] 10730 10726 [139] G1[179][177]11 [167][153]"DIE WACHE WILL DAS NICHT.":[137]10730 10727 [139] GE(G1)[179][177][171]1 [167][137] 10730 10728 [153]"DIE WACHE DANKT DIR UND GIBT DIR ZUM LOHN EINEN SPEER":GE(17)[178][171]1 10729 GE(11)[178]0 10730 [143] 10799 [142] 10800 [143] RAUM 8 --------- 10802 [131] 0,11,7,0,0,0,10,12,0,0 10803 [141] 53240 10805 [153]"DU BIST AM RANDE DES DSCHUNGELS. HIER 10806 PRINT"WACHSEN KLEINERE STRAEUCHER UND BUESCHE 10820 [142] 10900 [143] RAUM 9 --------- 10902 [131] 0,00,0,0,0,0,00,00,0,12 10903 [141] 53270 10905 [153]"DU BIST AUF DER KRONE EINES MALORA- 10906 PRINT"BAUMES. DER WIND WEHT DIR INS GESICHT. 10920 [143] 10925 [139] VE[179][177]25 [167][137]10950 10927 [139] G1[179][177]5 [167][153]"DER AFFE WILL DAS NICHT.":[137]10950 10930 [153]"DER AFFE ISST DIE BANANEN AUF." 10935 AF[178]1:GE(5)[178]0 10950 [143] 10999 [142] 11000 [143] RAUM 10 -------- 11002 [131] 7,00,0,11,0,8,00,00,0,0 11003 [141] 53300 11005 [153]"DU STEHST NEBEN DEINEM FLUGZEUG. IM 11006 PRINT"OSTEN ERSTRECKT SICH EINE LANDEBAHN, 11007 [153]"DIE ZWAR KURZ, ABER FUER DEIN KLEINES 11008 PRINT"FLUGZEUG AUSREICHEND IST. 11009 [139]NA[178]0[167][153]"OPENEIN KLEINER NEGERBURSCHE KOMMT UND SAGT: 11010 IFNA=0THENPRINT"[145][154] DU SCHNELL KOMMEN IN DEN FUNKRAUM. 11011 [139]NA[178]0[167][153]"CONT SPRECHENDE SCHACHTEL WILL DICH SEHEN. 11012 IFNA=0THENPRINT"[159]DANN LAEUFT ER RUFEND NACH NORDEN...":NA=1 11020 RETURN 11100 REM RAUM 11 -------- 11102 DATA 8,14,10,12,7,0,00,00,0,0 11103 GOSUB 53317 11105 PRINT"DU BIST AUF DER LANDEBAHN. DA SIE NICHT 11106 [153]"OFT GEBRAUCHT WIRD, BLUEHEN HIER EINIGE 11107 PRINT"BLUMEN. INSEKTEN UMSCHWAERMEN DICH." 11120 RETURN 11200 REM RAUM 12 -------- 11202 DATA 0,00,11,00,8,0,00,00,0,0 11203 GOSUB 53334 11205 PRINT"DU STEHST AM FUSSE EINES MALORA BAUMES. 11206 [139] TG[178]0 [167] [153]"EIN TIGER LIEGT NEBEN DEM STAMM." 11220 [143] 11225 [139] VE[178]30 [175] G1[178]17 [175] GE(G1)[178][171]1 [175] TG[178]0 [167] CC[178]1 11228 [139]CC[178]1[167][153]" DU VERTREIBST DEN TIGER MIT DEM SPEER !":TG[178]1:CC[178]0 11229 [139] TG[178]1 [167] OO(13)[178]0 11230 [139] TG[178]1 [167] RI(9)[178]9 11299 [142] 11300 [143] RAUM 13 -------- 11302 [131] 0,00,00,00,0,0,00,00,0,0 11303 [141] 53351 11305 [153]"DU BIST IN DEINEM FLUGZEUG. 11320 REM 11325 IF VE=11 AND OB=16 AND TU(1)=0THEN TU(1)=1:PRINT"OK":GOTO11330 11326 IF VE=11 AND OB=16 AND TU(1)=1THEN:PRINT"IST SCHON OFFEN..." 11327 IF VE=12 AND OB=16 AND TU(1)=1THEN TU(1)=0:PRINT"OK":GOTO11330 11328 IF VE=12 AND OB=16 AND TU(1)=0THENPRINT"IST SCHON ZU..." 11330 IF VE=15 AND GE(G1)=-2ANDTU(2)=0THENPRINT"OK":GE(G1)=-1 11332 IF VE=18 AND OB=16 AND TU(1)=1 AND GE(G1)=-1THENPRINT"OK":GE(G1)=-2 11333 IF VE=18 AND OB=16 AND TU(1)=0 AND GE(G1)=-1THEN KK=1 11334 IF KK=1 THEN PRINT"IN EINEN GESCHLOSSENEN KOFFER KANN ICH NICHTS LEGEN!" 11335 IF KK=1 THEN KK=0 11399 RETURN 11400 REM RAUM 14 -------- 11402 DATA 11,00,00,00,0,0,00,00,0,0 11403 GOSUB 53361 11405 PRINT"DU BIST AN EINEM STILLEN SEE.DAS WASSER 11406 [153]"WEHT UND DER WIND PLAETTSCHERT..... 11407 PRINT"DAS UFER IST SEHR SCHLAMMIG " 11420 REM 11425 IF VE<>33 THENGOTO11440 11426 IF GE(8)<>-1 THENPRINT"DU BRAUCHST EINEN KOEDER":CC=1 11427 IF GE(7)<>-1 THENPRINT"DU BRAUCHST EINE ANGEL.":CC=1 11428 IF CC=1 THEN CC=0:GOTO11440 11430 PRINT"DU FAENGST ZU DEINEM ERSTAUNEN EIN 11431 [153]"KLEINES KROKODIL ..." 11432 GE(8)[178]0:GE(19)[178]14 11440 [143] 11499 [142] 50000 [143] **************************** 50010 [143] * BEFEHLSEINGABE * 50020 [143] * BEFEHLSZERLEGUNG * 50030 [143] * BEFEHLSCODIERUNG * 50040 [143] **************************** 50050 [139]UD[178]1[167]50220 50055 [153]"PRINT#----------------------------------------" 50060 [151]198,0:BE$[178]"":[153]"CONTWAS NUN ?FOR "; 50070 [151]204,0 50080 [161]X$:[139]X$[178]""[167]50080 50090 [139][194](203)[178]1[176][195](BE$)[177]68[167][153]" ":[151]204,1:[137]50140 50100 I[178][198](X$):[139]I[179]65[176]I[177]90[167][139]I[179][177]32[175]I[179][177]20[175]I[179][177]34[167]50080 50110 [139]I[178]20[175]BE$[178]""[167]50080 50120 [139]I[178]20[167][151]204,1:[153]"CMD CMDCMD";:BE$[178][200](BE$,[195](BE$)[171]1):[137]50070 50130 [153]X$;:BE$[178]BE$[170]X$:[137]50080 50140 [153]"": [129]I[178]1[164]10:BE$(I)[178]"":[130]:WZ[178]1:[129]I[178]1[164][195](BE$) 50150 :[139][202](BE$,I,1)[178]" "[167][141]50190:[137]50180 50160 :[139]WZ[177]10[167][153]"EINGABE IST ZU LANG !":I[178][195](BE$)[170]1:[137]50180 50170 :BE$(WZ)[178]BE$(WZ)[170][202](BE$,I,1) 50180 [130]I:[137]50220 50190 IC[178]0:[129]I1[178]1[164]AZ:[139]BE$(WZ)[178]AU$(I1)[167]IC[178]1 50200 [130]I1:[139]IC[178]0[167]WZ[178]WZ[170]1:[142] 50210 BE$(WZ)[178]"":[142] 50220 [139]UD[178]1[167]UD[178]0:[137]50240 50230 WZ[178]1:VE[178]0:OB[178]0:PE[178]0 50240 IC[178]0:G1[178]0:G2[178]0 50250 [129]I[178]1[164]VZ:[139]BE$(WZ)[178]VE$(I)[167]VE[178]I:IC[178]1 50251 [139][195](BE$(WZ))[179]3[167]50260 50255 [139]BE$(WZ)[178][200](VE$(I),[195](BE$(WZ)))[167]VE[178]I[171][197]([201](VE$(I),1)):IC[178]1 50260 [130]I:[139]IC[178]1[167]50350 50270 [129]I[178]1[164]GZ:[139]BE$(WZ)[179][177]GE$(I)[167]50300 50280 IC[178]1:[139]G1[178]0[167]G1[178]I 50290 G2[178]I:[139]G2[178]G1[167]G2[178]0 50300 [130]I:[139]IC[178]1[167]50350 50310 [129]I[178]1[164]OZ:[139]BE$(WZ)[178]OB$(I)[167]OB[178]I:IC[178]1 50320 [130]I:[139]IC[178]1[167]50350 50330 [129]I[178]1[164]PZ:[139]BE$(WZ)[178]PE$(I)[167]PE[178]I:IC[178]1 50340 [130]I 50350 [139]BE$(WZ)[178]"UND"[167]UD[178]1:IC[178]1 50360 [139]IC[178]0[167][153]"ICH KENNE ";BE$(WZ);" NICHT !":[142] 50370 WZ[178]WZ[170]1:[139]WZ[177]10[176]BE$(WZ)[178]""[176]UD[178]1[167][142] 50380 IC[178]0:[137]50250 52000 [143] T A B E L L E N 52001 [140]52000 52002 [143] AUS-WOERTER --------- 52005 [131]DER,DIE,DAS,DEN,DEM, ,UEBER,UNTER,AUF,IN 52006 [131]VOM,VON,IM,NACH,DURCH,MIT,AM 52025 AZ[178]17:[134]AU$(AZ):[129]I[178]1[164]AZ:[135]AU$(I):[130] 52028 [143] VERBTABELLE --------- 52029 [131]N,S,W,O,NW,NO,SW,SO,RAUF,RUNTER 52030 [131]OEFFNE,SCHLIESSE,SCHAUE,UNTERSUCHE1,NIMM,NEHME1,HOLE2 52035 [131]VERLIERE,LEGE1,WIRF2,WERFE3,INVENTUR,VERLASSE,BETRETE,GIB,SCHENKE1 52036 [131]TOETE,MORDE1,KILLE2,VERJAGE,VERTREIBE1,FUNKE,FISCHE,ANGLE1 52037 [131]SPRICH,REDE1,SPRECHE2,FRAGE3,BEFRAGE4,SCHLAGE,ZERBRECHE1,BRECHE2, 52038 [131]ZERHAUE3,HAUE4,RITZE5,ZERSCHLAGE6,STARTE,WOERTER,AUFTRAG,HELP,HILFE1 52100 VZ[178]52:[134]VE$(VZ):[129]I[178]1[164]VZ:[135]VE$(I):[130] 52200 [143] GEGENSTANDSTABELLE --------- 52210 [131]BUCH,1 52211 [131]FLASCHE,1 52212 [131]FROSCH,0 52213 [131]STEINE,5 52214 [131]BANANEN,0 52215 [131]BIER,0 52216 [131]ANGEL,0 52217 [131]KOEDERFISCH,0 52218 [131]KNOSPE,9 52219 [131]BLUMEN,11 52220 [131]ASPIRIN,-2 52221 [131]VERBAND,-2 52222 [131]SCHERE,-2 52223 [131]PFLASTER,-2 52224 [131]SALZ,-2 52225 [131]JOD,-2 52226 [131]SPEER,0 52227 [131]BLUETE,9 52228 [131]KROKODIL,0 52229 [131]BLUTEGEL,0 52230 [131]HARZ,0 52231 [131]SCHERBEN,0 52232 [131]MEDIZIN,0 52300 GZ[178]23:[134]GE$(GZ):[134]GE(GZ):[129]I[178]1[164]GZ:[135]GE$(I):[135]GE(I):[130]I 52400 [143] OBJEKTTABELLE --------- 52410 [131]REGAL,1 52412 [131]LEITER,1 52414 [131]WEISEN,2 52416 [131]NEGER,3 52418 [131]FUNKGERAET,4 52419 [131]TISCH,4 52420 [131]TISCH,6 52421 [131]WACHE,7 52422 [131]BUESCHE,8 52423 [131]AFFE,9 52424 [131]FLUGZEUG,10 52425 [131]SCHMETTERLING,11 52426 [131]TIGER,12 52427 [131]SEE,14 52428 [131]BAUM,12 52429 [131]KOFFER,13 52430 [131]NEGERIN,6 52431 [131]SCHLAMM,14 52500 OZ[178]18:[134]OB$(OZ):[134]OO(OZ):[129]I[178]1[164]OZ:[135]OB$(I):[135]OO(I):[130]I 52510 [142] 52600 [151]53280,0:[143] DIA 52605 [141] 53000:[141]53030:[141]53060: [141]53090:[141]53120:[141]53150 52610 [141] 53180:[141]53210:[141]53240: [141]53270:[141]53300:[141]53317 52615 [141] 53334:[141]53351:[141]53361 52700 [128] 53000 [151]53281,10:[153]"LOADSTOP WAIT NEWNEWSTOP "; 53001 [153]" WAIT STOP "; 53002 [153]" WAIT STOP WAIT STOP WAIT STOP WAITRNDSTOP "; 53003 [153]" WAIT*STOP WAIT STOP WAIT STOP  STOP "; 53004 [153]"  STOP WAIT*STOP WAITRNDSTOP WAIT*RNDSTOP  STOP "; 53005 [153]"  STOP  STOP  STOP  STOP  STOP "; 53006 [153]"  STOP  STOP  STOP  STOP "; 53007 [153]" "; 53008 [153]" "; 53009 [153]" CONT STOP "; 53010 [153]" CONT STOP "; 53011 [153]" TOANDPOSPOSNEWCONT STOPPOSANDANDTOTO "; 53012 [153]"NEWNEWNEWWAITFREFREFREUSRUSRUSRTAB(TAB(SYS POSPOS LOGWAIT SYS STOPTAB(TAB(TAB(TAB(USRUSRUSRUSRFREFREFRENEWNEWPOSPOS"; 53013 [153]"WAIT COS STOPWAIT "; 53014 [153]"SYS * WAITLOG WAITRNDSYS "; 53015 [153]" * WAITCOSLOG WAITCOSSYS RND WAITCOS SYSWAIT STOPEIN ADVENTURESYS "; 53016 [153]" * WAITCOSSYS COS SYSWAIT  WAITCOSSYS * WAITCOSSYS LOG SYSWAIT "; 53017 [153]" LOGCOSSYS * SYSWAIT COS WAIT * WAITGETSYS * WAITRNDSYS STOP VONSYS "; 53018 [153]"  WAITCOSSYS  WAITLOG LOGSYSWAIT LOGCOSLOG SYSWAIT "; 53019 [153]" * WAITRNDSYS COS WAITRNDSYS  WAITCOSSYS FRANK KRAFT SYS "; 53020 [153]" COS WAITCOS WAITCOSSYS COS WAITRNDLOG SYSWAIT "; 53021 [153]"  WAITCOSSYS LOG SYSWAIT COS WAITCOS* SYSWAIT  SYS "; 53022 [153]" ABS WAITRNDSYS ABS WAITCOSSYS * WAITRNDSYS "; 53023 [153]" FRE WAITRNDSYS COSSYS LOGCOSLOGCOSSYS "; 53025 [161]A$:[139]A$[178]""[167][137]53025 53026 [153]"LOAD":[151]53280,0:[151]53281,0:[142] 53030 [151]53281,0:[153]"LOADDEF POKE(null)FNLIST PRINT# LIST PRINT# POKEWAITSTEPDEF "; 53031 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST DEFTAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53032 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST DEF(null)TAN(null)POKE DEFWAIT "; 53033 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST TAN(null)TAN(null)LISTCLOSEDEF(null)TAN(null)POKE DEFWAIT "; 53034 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST DEFTAN(null)TAN(null)LISTCLOSEDEF(null)TAN(null)POKE DEFWAIT "; 53035 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null) DEFTAN(null)LIST DEF(null)TAN(null)TAN(null)TANLIST CLOSEDEF(null)TAN(null)POKE DEFWAIT "; 53036 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)  DEFTAN(null)LIST DEF(null)TAN(null)TAN(null)TANLIST TAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53037 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null) DEFTAN(null)LIST DEF(null)TAN(null)TAN(null)TANLIST DEFTAN(null)TAN(null)LISTCLOSEDEF(null)TAN(null)POKE DEFWAIT "; 53038 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)FOR DEF(null)TAN(null)TANLIST DEF(null)TAN(null)POKE DEFWAIT "; 53039 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TANVERIFYUSRTAN(null)TAN(null)TANVERIFYUSRTANDEF(null)TAN(null)TANLIST TAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53040 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)DEFTAN(null)TAN(null)TANLIST DEFTAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53041 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANDEF(null)TAN(null)TAN(null)TANLIST DEF(null)TAN(null)POKE DEFWAIT "; 53042 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST TAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53043 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST DEFTAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53044 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST DEF(null)TAN(null)POKE DEFWAIT "; 53045 [153]"POKE DEF(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TANLIST TAN(null)TAN(null)LIST DEF(null)TAN(null)POKE DEFWAIT "; 53046 [153]"POKE WAITSTEPDEF PRINT#.DEF PRINT#.DEF SYS.DEF SYS.DEF SYSSTEP.LIST SYS . .LIST SYS DEFWAIT POKE(null) DEFWAIT "; 53047 [153]"POKE WAITSTEP.DEF PRINT# DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF SYS.DEF SYS.DEF SYSSTEP.WAITSTEP .WAITSGN.DEF POKE(null) DEFWAIT "; 53048 [153]"POKE WAITSTEPDEF POKE.DEF POKE.DEF SYS.DEF SYSSTEP . . . WAITINT .DEF POKE(null) DEFWAIT "; 53049 [153]"POKE WAITSTEPDEF POKE.DEF PRINT# DEF POKE.DEF PRINT#.DEF PRINT#.DEF SYS.DEF SYS.DEF SYS.DEF SYS.DEF POKE(null) DEFWAIT "; 53050 [153]"POKESTEPDEF POKE.DEF POKE.DEF SYS.DEF SYS.DEF SYS.DEF PRINT#.DEF SYS..DEF SYS.DEF PRINT#.DEF POKE(null)DEF "; 53051 [153]" POKE.DEF POKE.DEF PRINT# DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF SYS.DEF SYS.DEF SYS.DEF POKE DEF "; 53052 [153]" POKE.DEF POKE.DEF POKE.DEF POKE.DEF SYS.DEF SYS.DEF PRINT#.DEF POKE.DEF "; 53053 [153]" POKE.DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF POKE DEF "; 53054 [153]" POKE.DEF POKE.DEF PRINT#.DEF PRINT#.DEF PRINT#.DEF  53055 GOTO53025 53060 POKE53281,0:PRINT"[147][129] "; 53061 PRINT" [149] [129] "; 53062 PRINT" [149][190] [146][163][163][183][197][192][175][129] [149] "; 53063 PRINT"[129] [149][190] [146][187] [180] [129] "; 53064 PRINT" [149] [192][192][210][210][197][146] [194] [129] "; 53065 PRINT" [149] [192][192][210][210][192][197][146][183][170] [129] "; 53066 PRINT" [149][190] [151] [209][149] [151] [209][149][146] [165][129] "; 53067 PRINT" [149] [201] [223][151][146] [149] [199] [129] "; 53068 PRINT" [149][170][194] [151][146] [149] [199] [129] "; 53069 PRINT" [149][170][200] [146] [194] [129] "; 53070 PRINT" [149][170][194] [209] [146] [194] [129] "; 53071 PRINT" [149] [180] [146] [151][161] [149][146] [129] "; 53072 PRINT" [149][188][155] [149] [194] [194][146] [151][181][182][149][146] [129] "; 53073 PRINT" [155] [149] [158][219][219][219][219][149][146] [151][180][146][161][149] [129] "; 53074 PRINT" [155][188] [149] [146][190][151] [146][181][129] "; 53075 PRINT" [155][188] [149] [146][190][152] [151][160][149][146] [129] "; 53076 PRINT" [149] [155] [149] [172][152] [151][160][149][146] [129] "; 53077 PRINT" [149][172] [155] [152] [146][181][129] "; 53078 PRINT" [149]  [155] [152] [146][180][129] "; 53079 PRINT" [149][172] [155] [149] [188][129][146] "; 53080 PRINT" [149][172] [155] [149] [188][129][146] "; 53081 PRINT" [149][190] [155] [149] [188][129][146] "; 53082 PRINT" [149][172] [155] [149] [146][187][129] "; 53083 PRINT" [149] [155][160] [149] [129][146] "; 53084 PRINT"[149]  [209] [155] [149] [209] [146]  53085 [137]53025 53090 [151]53281,0:[153]"LOADVERIFY "; 53091 [153]" ANDPOS "; 53092 [153]" FORNEW WAITNEWVERIFY  ++ WAIT "; 53093 [153]" FOR* WAITRNDVERIFY FOR VERIFY ++ WAITSGN "; 53094 [153]" FOR VERIFYWAIT FOR VERIFY+++WAITINT "; 53095 [153]" FOR* VERIFYWAITRND FORGET VERIFY+++ABSWAIT "; 53096 [153]" FOR VERIFY WAIT FORINT VERIFY+++THENWAIT "; 53097 [153]" FOR POKE (null) FOR POKE (null) FOR VERIFYCLOSEWAIT FORSGN VERIFY WAIT "; 53098 [153]" FOR VERIFYCLOSEWAIT FOR CLOSEVERIFY WAIT "; 53099 [153]" FORLOG VERIFY FOR VERIFYWAITCOS FORSGN VERIFY +WAIT "; 53100 [153]" FOR VERIFY FOR VERIFYWAIT FORINT VERIFY WAITGET "; 53101 [153]" FOR VERIFYWAIT FORABS VERIFY WAITINT "; 53102 [153]" FOR SYS(null)(null)(null)(null)(null)FOR VERIFYWAIT FORTHEN VERIFY WAITSGN "; 53103 [153]" FORLOG TAN WAITCOSVERIFY FOR VERIFY WAIT "; 53104 [153]" FORRND *VERIFYWAIT FORABS VERIFY WAITSGN "; 53105 [153]"  FORWAITLOG WAITCOSVERIFY WAIT FORGET VERIFY WAITINT "; 53106 [153]" SYS VERIFY SYS VERIFYWAIT FORGET VERIFYCLOSEWAITINT "; 53107 [153]" NEW SYS VERIFY SYS VERIFY WAITNEWNEW FORINT VERIFYCLOSEWAITGET FOR "; 53108 [153]"VERIFY * SYS VERIFY WAITRND FORINT VERIFY WAITGET "; 53109 [153]" * LIST VERIFY FORSGN VERIFYCLOSEABSWAIT "; 53110 [153]" * LIST VERIFY FORFN VERIFYCLOSEABSWAIT "; 53111 [153]" * FOR VERIFYCLOSETHENWAIT "; 53112 [153]" * FOR VERIFY THENWAIT "; 53113 [153]" "; 53115 [137]53025 S 53120 [151]53281,0:[153]"LOADVERIFY PRINT#+VERIFY "; 53121 [153]" PRINT#+VERIFY "; 53122 [153]" PRINT#+VERIFY "; 53123 [153]" PRINT#GETVERIFYWAIT "; 53124 [153]" PRINT#INTVERIFYWAIT "; 53125 [153]" PRINT#FNVERIFYWAIT "; 53126 [153]" PRINT# VERIFYWAIT "; 53127 [153]" STEPPRINT#  (null)VERIFYWAIT "; 53128 [153]" STEP (null) VERIFYWAIT "; 53129 [153]" CONT(null)TANTANTANTANRIGHT$ + VERIFYWAIT "; 53130 [153]" CONTPEEKSPC(SPC(SPC(SPC(PEEK POKEFNPRINT#SGNLISTFNSGNCONT + VERIFYWAIT "; 53131 [153]" CONTPEEKSPC(SPC(SPC(SPC(PEEK FREFREFREFRECONT + FOR VERIFYWAIT "; 53132 [153]" CONTPEEKSPC(SPC(SPC(SPC(PEEK + FOR VERIFYWAIT "; 53133 [153]" CONTMID$TANTANTANTAN(null) + FN(null)FOR CONTWAIT "; 53134 [153]"VERIFY CONT*TANRIGHT$ POKE(null)RIGHT$(null)RIGHT$CONTSGN + (null)(null)WAITSTEPVERIFY FOR  VERIFYWAIT "; 53135 [153]" CONTABS(null)-TANTANTANTANPOKEMID$(null)MID$(null)CONTSGN +(null)(null)WAITSTEPVERIFY FOR USRFRENEWPOSVERIFYWAIT "; 53136 [153]" CONT LOGTAN(null) USRUSRUSRUSR (null)(null)(null)WAITSTEPVERIFY FOR  VERIFYWAIT "; 53137 [153]" FORSTEP CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAITSTEPVERIFY FOR  VERIFYWAIT "; 53138 [153]" FORSTEP VERIFYWAIT "; 53139 [153]" FORSTEP VERIFYWAIT "; 53140 [153]" FORSTEP VERIFYWAIT "; 53141 [153]"  WAIT "; 53142 [153]"  WAIT "; 53143 [153]" "; 53144 [153]"  53145 GOTO 53025 53150 POKE53281,0:PRINT"[147][149]  [149][146] "; 53151 PRINT"  [149][146]  [149][146] "; 53152 PRINT"  [149][146]  "; 53153 PRINT"[149]  [149][169] [223][146] "; 53154 PRINT"  [149][169] [223][146] [169][205] [146] "; 53155 PRINT"  [129][146] [149][172] [223] [149][169] [223][146] [169] [205][146] "; 53156 PRINT"  [149][146][172] [223] [223][146] [169] [146] "; 53157 PRINT" [129] [162][149] [223][151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][149][146] [169] [146] "; 53158 PRINT" [129][172] [149] [223][151] [149][146] [151] [149][146] [151] [149][146] [151] [146][172] [153] [146][187] [149] [158][146] [149] "; 53159 PRINT" [129][190][205] [149] [146][169][151] [149][146] [151] [149][146] [151] [149][146] [151] [153]  [153] [149][146] [223] [158][146] [149] "; 53160 PRINT" [129][206][205][205] [149] [146][169][151] [183][183] [183][183] [183][183] [153]  [129][223][149][146][223] [158][146] [149] "; 53161 PRINT" [129][206][205][205][205] [149] [146][169][151][169] [175][175] [153]  [129][205][223][149][146][223] [158][146] [149] "; 53162 PRINT" [129][206][205][205][205][205] [146][169][151][169][170][149][146] [151] [149] [151][180] [149][146] [151] [149][146] [151]  [129][205][205][223][149][146][223] [158][146] [149] "; 53163 PRINT" [129][206][205][205][205][205][205] [146][169][151][169] [170][149][146] [151] [149][201] [151][180] [149][146] [151] [149][146] [151]  [129][205][205][205][223][149][146][223][158] [149] "; 53164 PRINT" [129][206][205][205][205][205][205][205][146][169][152][169][151] [170] [149] [151][180] [183][183] [183][183] [146] [158].[151] [129][205][205][205][205][223][149][146] [129] "; 53165 PRINT"[149] [152] [169] [151] [170] [149] [151][180] [146] [158] [129][205][205][205][205][205][146] "; 53166 PRINT"[149]  [152] [151][146][169] [170][152][146] [149][163][163][152] [158][167] .[151] [158]  [129][205][146][223][205][205][205][146] "; 53167 PRINT" [149] [152][146] [149] [152][146] [149] [152] [151] [152][146] [151] [146][169][152] [158].[152] [158].[152] [158] [182][188][146] [190] [129][205][149][223][129][146][223][205][205][146] "; 53168 PRINT"[149]  [152][146] [149] [152][146] [149] [152] [151] [152][146] [151][169][152] [158] [161] [129][205][149] [223][129][205][205][149][146] [129] "; 53169 PRINT"[149]  [152] [151] [152][146] [158].[152] [158] . [181] . [129][205][149] ,[129][205][205][149][146] [129] "; 53170 PRINT"[149]  [151] [146][169][152] [158] . [180] [167][129][146][223][149] [129][205][205][149][146] [129] "; 53171 PRINT"[158] [149]  [151][146][169][152] [160] [158].[152] [158].[152] [158] [169] [182][129][146] [149][223] [129][205][205][149][146] [129] "; 53172 PRINT"[149] [152] [158] [152][146] [158] [152] [158] [169] . [146][180][129] [149][223][129][205][205][149][146] [129] "; 53173 PRINT"[158] [152] [158][167] [129][146] [223][205][158][146] [129] "; 53174 PRINT"[158]  53175 [137]53025 53180 [151]53281,0:[153]"LOADPRINT# CONT+VERIFYFNPRINT#  PRINT# "; 53181 [153]" CONT+VERIFYCHR$PRINT# (null)USRUSRUSRUSRUSR(null)PRINT# "; 53182 [153]" CONT+VERIFYPEEKPRINT# FORANDPRINT# STEP(null)PRINT#WAIT +PRINT# "; 53183 [153]" CONT+VERIFYLEFT$PRINT# FOR* WAITRNDPRINT# LOG PRINT#WAIT +PRINT# "; 53184 [153]" CONT+VERIFY+ PRINT# FORINTVERIFY* RNDFORABSPRINT#WAIT (null)STEPPRINT# +PRINT# "; 53185 [153]" CONT+VERIFY SGNPRINT# FOR+VERIFY . FORSGNPRINT#WAIT STEP(null)PRINT#WAIT +PRINT# "; 53186 [153]" CONT+PRINT# VERIFYINTPRINT# VERIFY - PRINT#WAIT +PRINT# "; 53187 [153]" LOGPRINT# VERIFYGETPRINT# VERIFY PRINT#WAIT +PRINT# VERIFY "; 53188 [153]"PRINT# VERIFYGETPRINT# VERIFYSTEP  VERIFY  VERIFY (null)PRINT#WAIT +PRINT# "; 53189 [153]" SYS PRINT#WAIT VERIFYGETPRINT# VERIFYSTEP  VERIFY  VERIFY (null)PRINT#WAIT PEEKPRINT# +PRINT# "; 53190 [153]" SYS VERIFYWAITGETSTEP  VERIFY PRINT#WAIT  PRINT#WAIT  PRINT#WAIT +PRINT# "; 53191 [153]" SYS VERIFY PRINT#WAIT  PRINT#WAIT VERIFY PRINT#WAIT  PRINT#WAIT CONT PRINT#WAIT CONT WAIT+PRINT# "; 53192 [153]" FORANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDPRINT#WAIT "; 53193 [153]" FOR VERIFY FOR PRINT#WAIT "; 53194 [153]" FOR VERIFY FORWAITTAUSCH LADIVERIFY FOR PRINT#WAIT "; 53195 [153]" FOR VERIFY FOR PRINT#WAIT "; 53196 [153]" FOR PRINT#WAIT "; 53197 [153]" FOR PRINTWAIT(null)(null)ATNATNPRINT# "; 53198 [153]" FOR PRINTWAIT(null)(null)PRINTATN(null)(null)PRINT# "; 53199 [153]" FOR PRINTWAIT(null)(null)(null)(null)PRINT(null)(null)PRINT# FOR "; 53200 [153]"PRINT# FOR PRINTWAITATN(null)PRINTATN(null)ATN(null)(null)PRINT# "; 53201 [153]" (null)PRINT# (null)(null)PRINT# "; 53202 [153]" "; 53203 [153]" "; 53204 [153]"  53205 GOTO53025 53210 POKE53281,0:PRINT"[147][149]  [149][146] "; 53211 PRINT"  [149][146] [170] [155][146][180][149] "; 53212 PRINT"  [149][146] [182] [155][146][181][149] "; 53213 PRINT" [166][166][166][166][166][166][166][166][166][166][149][146] [161] [155][146][181][149] "; 53214 PRINT" [129] [149][146] [181] [155][182][149][146] "; 53215 PRINT" [129] [162][162][162] [162][162][162] [149][146] [180] [155][170][149][146] "; 53216 PRINT"  [129] [152] - [129] [152] - [129] [149] [146] [170] [155] [146][180][149] "; 53217 PRINT"  [129] [163][163][163][194][194][163][163][163] [149] [146]   [155] [149][146] "; 53218 PRINT"  [129] [213][203][202][201] [149][160][146] [154]  [149][146] "; 53219 PRINT"  [129] [202][201][213][203] [149][160][146] [154]  [149][146] "; 53220 PRINT" [129] [202][203] [149][146] [154]  [149][146] "; 53221 PRINT" [129] [175][175][175][175] [149][146] [154]  [149][146] "; 53222 PRINT" [129][188] [173][177][177][189] [146][190][149] [154]  [149][146] "; 53223 PRINT" [129] [149][146] [154]  [149][146] "; 53224 PRINT" [129][188] [146][190][149] [154]  [149][146] "; 53225 PRINT" [129][172] [146][188] [146][190] [146] [149] [154][160]  [149][146] "; 53226 PRINT"[129][184][183][183][163][163] [163][163][163][163] [163][163][183][183][184][146][185][149] [154]  [149] [129] [149][146] "; 53227 PRINT"[129] [188][149][146] [129][190] [149][146] "; 53228 PRINT"[129] [149][146] [129][172] [149] [146][180] "; 53229 PRINT"[129] [146][161][149] [129][172] [154] [149] [146][181] "; 53230 PRINT"[129] [149][146] [129][172] [154] [149] [146][180] "; 53231 PRINT"[129] [182][146][172] [160] [154][160][149] [172][146] "; 53232 PRINT"[129] [200][165] [172][190] [172][154]  [149][146][183] "; 53233 PRINT"[129] [209] [209] [170][165] [172][190] [146][190][149] [154]  [149][146] "; 53234 PRINT"[129]  53235 [137] 53025 53240 [151]53281,5:[151]53280,5:[153]"LOAD  WAIT "; 53241 [153]"  WAIT "; 53242 [153]"  WAIT "; 53243 [153]"  WAIT "; 53244 [153]"  WAIT "; 53245 [153]"  *WAIT *RND WAIT "; 53246 [153]"  *WAIT RND WAIT "; 53247 [153]"  RNDWAIT NEW NEWWAIT NEWRNDRND WAIT "; 53248 [153]"FOR  * *RND FORWAIT PEEK FN  FORWAIT "; 53249 [153]"  *FORWAIT *FORWAIT RND*FORWAIT CHR$ VERIFYGETFORTHEN RND FORWAIT "; 53250 [153]"  LOGFORWAIT VERIFYINTSINFOR SGN VERIFYINTFORABS SGN RND FORWAIT "; 53251 [153]"  LOGFORWAIT VERIFYSGNFOR SINFOR +VERIFYSGNLEFT$FNFORGETWAIT+  FORWAIT "; 53252 [153]"  ABSFORWAIT PEEKVERIFYTHENABSFOR LOGRNDFOR + GETVERIFYWAITINTLEFT$FNFORFNWAITLEFT$  FORWAIT "; 53253 [153]" CLOSE ABSFORWAIT LEFT$VERIFYABSGETFORWAIT VERIFYSGNFOR GETFOR SGNINTVERIFYABSWAITABSSGNFORSGNWAITPEEK RND RNDLOGNEWNEWFORWAIT "; 53254 [153]"  *FORWAIT LEFT$VERIFYABSINTWAIT+ FNSIN FOR SGNFNVERIFY+WAIT+FOR +WAITCHR$ RND ^FORWAIT "; 53255 [153]"  WAITINTFOR PEEK+VERIFYGETSGNWAITPEEKPEEKFOR COSFORWAIT CHR$ VERIFYTHENFORINTWAIT +WAITSGN COS *FORWAIT "; 53256 [153]"  WAITINTFOR PEEKPEEKVERIFYINTFNWAITCHR$SGNFOR  FORWAIT LEFT$ VERIFY FORSGNWAIT SGNWAITSGN COS FORWAIT "; 53257 [153]"  WAITRNDFOR ++VERIFYINT WAITSGNFOR  NEWNEW FORWAIT  VERIFY FOR VERIFY FOR WAITSGN COSNEWNEWNEWNEWNEWFORWAIT "; 53258 [153]" SYSANDANDANDANDPOSPOSFORPEEKVERIFY SYSWAITNEWNEWPOSNEWNEWFREFREUSRUSR TAB(TAB(TAB(USRUSRUSRFREFREFREWAITNEWNEWNEWPOSAND "; 53259 [153]" SYS . . . . . WAIT "; 53260 [153]" SYS . . . . WAIT "; 53261 [153]" SYS . . . WAIT "; 53262 [153]" SYS . . . WAIT "; 53265 [137]53025 53270 [151]53281,5:[151]53280,5:[153]"LOADFOR  FORWAIT "; 53271 [153]"  FORWAIT "; 53272 [153]"  WAITFREFREFREFRE FORWAIT "; 53273 [153]"  WAITCOSVERIFY LOG FORWAIT "; 53274 [153]"  WAITCOSFOR SYS VERIFY FOR VERIFYSPC( FORWAIT "; 53275 [153]"  WAITCOSFOR VERIFY FOR VERIFYSPC(SPC( FORWAIT "; 53276 [153]"  WAITCOSFOR PRINT FOR VERIFY FOR VERIFYSPC( FORWAIT "; 53277 [153]"  WAITCOSFOR (null)(null)RIGHT$FOR PRINT FOR VERIFY FOR VERIFYSPC( FORWAIT "; 53278 [153]"  WAITRNDFOR MID$SYS(null)RIGHT$ FOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC( FOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC(FOR VERIFYSPC(SPC( FORWAIT "; 53279 [153]"  FORWAIT MID$(null)(null) FOR VERIFYSPC(SPC(SPC(SPC(FOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( FORWAIT "; 53280 [153]"  WAITRNDFOR  FOR VERIFYSPC(FOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC( FORWAIT "; 53281 [153]"  FORWAIT VERIFYSPC(FOR VERIFYSPC(SPC( FORWAIT "; 53282 [153]"  WAITRNDFOR VERIFYSPC(SPC(FOR VERIFYSPC(SPC(SPC( FORWAIT "; 53283 [153]"  FORWAIT VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( FORWAIT "; 53284 [153]"  WAITRNDFOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC( FORWAIT "; 53285 [153]"  WAITRNDFOR SYS FOR SYS(null)FOR VERIFYSPC(SPC( FORWAIT "; 53286 [153]"  WAITRNDFOR VERIFYSPC(SPC(SPC(SPC(FOR VERIFYSPC(SPC(SPC(SPC(SPC( FORWAIT "; 53287 [153]"  WAITRNDFOR VERIFYSPC(SPC(SPC(FOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC( FORWAIT "; 53288 [153]"  WAITRNDFOR VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( FORWAIT "; 53289 [153]"  LOGFORWAIT VERIFYSPC(SPC( FORWAIT "; 53290 [153]"  LOGFORWAIT VERIFY  FORWAIT "; 53291 [153]"  WAITRNDFOR VERIFY   FORWAIT "; 53292 [153]"  WAITRNDVERIFY WAIT  FOR VERIFY  FORWAIT "; 53293 [153]"  FOR VERIFY FOR VERIFY  FORWAIT "; 53294 [153]"  FOR VERIFY  FORWAIT  53295 GOTO53025 53300 POKE53280,0:POKE53281,0:PRINT"[147][129] 53306 [153]" POKE(null)FORWAIT "; 53307 [153]" POKE FREWAITPOSANDTOFOR "; 53308 [153]" POKE  AND(null)(null)(null)ANDANDAND+CONT TAB(USRWAITNEWPOSANDFOR "; 53309 [153]" POKEPOSTANVALUSR (null)TANVALUSR TOANDPOSNEWWAITFREUSRTAB(TAB(FOR CLOSE"; 53310 [153]"TOTOTOFOR POKETAB(USRUSRFREFRETAB(PRINT#(null) FOR PRINT# SINTOTOTOTOTOFOR "; 53311 [153]" . . . TAB(TAB(TAB(TAB(TAB(TAB( . "; 53312 [153]" . . . "; 53316 [137]53025 53317 [151]53280,5:[151]53281,5:[153]"LOAD "; 53318 [153]" "; 53319 [153]" "; 53320 [153]" "; 53321 [153]"*RND *SYSWAIT(null) NEW NEWRND *WAIT(null)LOGNEW NEWRND WAITCOSNEWNEWRND *WAIT NEWRND"; 53322 [153]"WAIT +COSLOG *WAIT + PEEK RNDNEWWAITCOS PEEK SGN SYS(null)RND *WAIT SYS(null) OPEN(null)NEWNEWWAITSGN "; 53323 [153]" + FOR CLR(null) LEFT$ LEFT$ (null)STEPWAIT PEEK PEEK +  *WAIT CHR$ PEEK + FOR(null)  FOR(null)"; 53324 [153]" SGN SGN CHR$ SGN STEP(null) SGN FN PEEK + PEEK PEEK CHR$ PEEK + + "; 53325 [153]" PEEK PEEK PEEK PEEK SGN + PEEK SGN LEFT$ + CHR$ PEEK SGN PEEK PEEK "; 53326 [153]" + + + PEEK+ + ++ PEEK SGN SGN + SGN CHR$ + "; 53327 [153]"SYSTAB(USRUSRUSRFREFREFREUSRUSRUSRTAB(TAB(USRUSRUSRFREFREFREUSRUSRUSRTAB(TAB(TAB(TAB(USRUSRFREFREFREUSRUSRFREFREUSRUSRUSRFREFRETAB("; 53328 [153]" . . . . "; 53329 [153]" . . . ."; 53330 [153]" . . "; 53331 [153]" . . "; 53332 [153]"TOTOANDANDANDPOSPOSNEWNEWPOSPOSANDANDPOSPOSNEWNEWPOSPOSPOSPOSANDANDANDTOTOTO TOTOTOANDANDANDPOSPOSPOS"; 53333 [137] 53025 53334 [151]53281,0:[151]53280,0:[153]"LOAD RND *CONT" 53335 [153]" RND VERIFYWAITSPC(SPC( RND WAITCOSCONT "; 53336 [153]" LOG RNDVERIFYWAITSPC(SPC(FORSPC(VERIFYSPC(*CONTWAIT FREFRECONT "; 53337 [153]" RNDCONTWAIT FORSPC(SPC(SPC(VERIFYSPC(CONT "; 53338 [153]" FORSPC(SPC(SPC(VERIFYSPC(CONT "; 53339 [153]" FORSPC(SPC(SPC(VERIFYSPC(CONT "; 53340 [153]" FORSPC(SPC(SPC(VERIFYSPC(CONT "; 53341 [153]" FORSPC(SPC(SPC(VERIFYSPC(CONT "; 53342 [153]" FORSPC(SPC(SPC(VERIFYSPC(CONT "; 53343 [153]" FOR SPC(SPC(SPC(VERIFYSPC(CONT "; 53344 [153]"SYSNEWNEWFREFREFREFREFREFREFREFREFREUSRUSRUSRUSRUSRUSRTAB(TAB(TAB(TAB(TAB( . . TAB(TAB(TAB(USRUSRUSRUSRFREFREFRE"; 53345 [153]" . . . . . "; 53346 [153]" . . . "; 53347 [153]" . . . "; 53348 [153]". . . "; 53349 [153]" . . "; 53350 [137]53025 53351 [151]53280,0:[151]53281,0:[153]"LOAD  TO TO VERIFY" 53352 [153]"CONT  WAITSTEPVERIFY PRINT#STEPCONT VERIFYWAIT "; 53353 [153]"CONT  WAITSTEPVERIFY SYSTOANDTOVERIFY PRINT#STEP CONT VERIFYWAIT "; 53354 [153]"CONT  LIST SYSWAITFRELIST PRINT# CONT VERIFYWAIT "; 53355 [153]"CONT  LIST  LIST PRINT# CONT TOTO VERIFYWAIT "; 53356 [153]"CONT  LIST  LIST PRINT# VERIFYWAIT CONTSTEP VERIFYWAIT LIST "; 53357 [153]"CONT  LIST  LIST PRINT# WAITSTEPVERIFY CONTSTEP VERIFYWAIT "; 53358 [153]"CONT  LIST PRINT#WAITSTEPVERIFY CONTSTEP VERIFYWAIT "; 53359 [153]"CONT  WAIT "; 53360 [137]53025 53361 [151]53280,6:[151]53281,6:[153]"LOADLIST CONT LIST 53362 PRINT" [154] [155][146] "; 53363 PRINT" [154] [155][146] "; 53364 PRINT" [154] [155][146] "; 53365 PRINT" [154] [164][164][164][164][164][164][164][164][164][175][175][175][175][175][175][175][164][164][164][164][164][164][164][164][164] [155][146] "; 53366 PRINT" [149] [181] [155] [149][181][155] [149] [181] [181] [181][155] "; 53367 PRINT" [149][181][155] [149][181][181][155] [181][155] [149][181] [181] [149][181][155] "; 53368 PRINT" [149][181][155] [181][149][181][155]  [146][187][155] [181][172] [146][187][181][155] "; 53369 PRINT" [149][181][155] [181][155] [181][181][155]  [155][146]  [166][155][146] "; 53370 PRINT" [172][155] [149][181][155] [181][172] [146][187][155] [172] [166][155][146] [172] [166][155][146] "; 53371 PRINT"  [155][146] [181][172] [166][155][146]  [166][155][146]   [160][155][146] "; 53372 PRINT"  [146][172] [166][155][146]  [166][155][146]  [166][166] [155][146] "; 53373 PRINT"  [166][155][146] [172] [166][155][146] [166][166][166][166][166] [155][146] "; 53374 PRINT"  [166][166][149] [129] .  [166][149] [166][166][166][166][166] [155][146] "; 53375 PRINT"  [166][166][149] [129]  [166][149] . [166][166] [155][146] "; 53376 PRINT"  [166][166][149] . [129] .  [166][149] . [166] [155][146] "; 53377 PRINT" [129]  [166][166][149] [129] . [160][155][146] "; 53378 PRINT" [129]  [166][149] . . [129] . . . [155][146] "; 53379 PRINT" [129]  [149] [129] [155][146] [129] "; 53380 PRINT"[155] "; 53381 GOTO53025